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] 
C | 
; 1 1 MODULE opc$replymain  ( E (Bt *R eg command main module’ ZSBTTL ‘Copyright notice’ 
3 § § LANGUAGE ( 
g IDENT = 
; & MAIN = -evpe-600" main 
$ 5 5 = | 
: $ BARES ELESLSSS ILLITE TET TT TTT TPCT cece eect cei ci rire citi tic iiiiiiiiiit | 
: 'e ® ' 
; § 'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 2610 10 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: 1} O01, ? ALL RIGHTS RESERVED. . 
; ig 1g ie ruts SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 616 14 '® ONLY IN ACCORDANCE WITH THE yenns OF SUCH LICENSE AND WITH THE * 
:; 2615 15 '@ INCLUSION OF THE ABOVE yee e OTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 bie '® COPIES THEREOF MAY NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
a 3 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: + 8 :* TRANSFERRED. * 
Py :* b 
3 0 60 0 'e phe 3 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 1 0021 'e SHOUL 4 NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: ¢ 4 § :: CORPORATION . 
; 4 4 4 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 2 09 é rp SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
° i 
: : 00 8 8 iecdhabadnatiiniebehbadntnehensianiemmseineddbenssaubimebaanesannaeehubinen 
; 3 09 3 8 lee 
: 1 4 1 4 FACILITY: 
; : 0038 ; REPLY command 
> «35 0035 i ABSTRACT: 
; : 0037 § This module contains the top level logic for the DCL REPLY command. 
; 3 33 ; Environment: 
: 1 1 : VAX/VMS operating system. 
: 5 O48 Author: | 
: beg CW Hobbs 
; § : Creation date: 
; 5 Bi 1-Aug-1983 
; 50 ! 
: 33 : Revision history: 
; 3g ' v03-003 CWH3169 CW Hobbs 55-May-1984 
3 54 ! Second pe for cluster-wide OPCOM: 
3 55 ! - Chec ier oper pri vs, and return NOOPER priv if not there. 
3 Bogs ! - Add CSID to clm header 
5 5 ! - Force ee batch jobs to /NONOTIFY. 
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; 38 H H - Return status codes with OPCS a set. 

: i v03-002 CwH3002 Cw Hobbs gre] 

3 ee : Change the two SCS node items to the single ath St nope item 
i 6 len 


] 
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; 65 } BEGIN ISBTTL ‘Start of REPLYMAIN’ 

3 e5 1 LIBRARY ‘SYSSLIBRARY: LIB. L32'; 

3; 6 : LIBRARY *LIB$:OPCOMLIB'; 

: 26 1 FORWARD ROUTINE 

3 7 1 replymain_broadcast, ! Mid-Level routine to eae A terminal broadcasts 
aw 71 «1 replymain_ broadcast. wee ' Routine to ecoadcast loca 

aS 72 #1 replymain_fu sor OVALUE, ' Get fui} device name ior teraiacl. do some checking 
; 75.1 replymain. in ! Initializations 

: 75 7% 1 replymain=lo file. i Open or close the log file 

3 r6 75 «1 replymain_main, ! Entry point, main routine 

Fa 76 «1 replymain_ oprenable, ' Enable or disable operator’ s terminal 
; | «678 77 «(1 replymain_reply, ! Reply to a user's reque 

— 7 4 : replymain_status; : Give status for a hbo ly terminal 

3 Bi $080 1 EXTERNAL ROUTINE 

: 0081 1 replybrd_ ferent. ! Format the reply message 

; 8 0082 1 replybr ! Do the actual break through 1/0 

ae -)] 0085 1 share ~Leskup. oper_bit, ! Convert text string to operator bit number 
3 HF Boge : share_trnlog” : NOVALUE; ! Recursively translate a name 

; 87 0086 1 EXTERNAL 

; & 0087 1 reply inape. ' Flag, 1 means REPLY image, 0 means OPCOM image 
3 4 4's : oper_keytbl : VECTOR C, LONG); ! Keyword table for /ENABLE and /DISABLE qualifiers 
; | (91 0090 1 OWN 

~ 9 0091 1 dvi_terminal_len, ! Length of terminal name 

; «9 6035 1 dvi_terminal_buf : VECTOR Cmax_dev_nam, BYTE), 

: 94 95 1 pi_username_len, 

s 95 0094 1 pi_username_buf : yeryon Res BYTE), 

3; 0095 1 pi_privs : 

s 697 3098 1 nodename_ “ast : veetoR C16, “BYTE, 

; 0097 1 nodename_desc : $stat_str _desc (0; nodename _buf) 

s 098 1 tranlog_desc : $stat_ =ptt p.qeee 1 (16, nodename _buf), 

: 100 99 1 devchar : $bblock 

: 101 100 1 in vAXc Luster : LONG, 

; 198 101 1 batch_mode : LONG, 

: 10 8198 1 nodecsid : LONG 

> 104 0193 1 dvi_items : vecTon (7, LONG] PRESET ( 

3; 105 06 1 = (dvi$ _devchar*16 OR 4), 

: 106 0105 1 ; = devchar, 

: 107 0106 1 § = Q, 

: 108 107 1 = (dvi$_fulldevnam*16 OR max_dev_nam), 

: 109 108 1 4) = dvi_términal_buf, 

; 110 109 1 5] = avr terminal_len, 

3 (111 110 1 6] = 

3 V6 111 «1 mba2_refcnt LONG 

: 11 1g 1 mba2-dvi_items VECTOR (4, LONG] PRESET ( 

3 116 11 1 0] = (dvi$_refcnt*16 OR 4), 

- ov. 114 1 1} = mba2_fefcnt, 

: 16 115 1 § = 

: 11 116 1 = 05, 

: 138 117 (1 jpi_items : VECTOR C LONG) PRESET ( 

3; (11 By 1 Qj = ei Sueornane ue OR 12), 

: 120 119 #1 1) = a1 _uSername_buf, 

s 121 0120 1 2] = jpi_username_len, 
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and main moeusg 
n broadcast routine 


GLOBAL ROUTINE replymain_broadcast = 
i Functional description: 


PCOM.SRCJREPLYMAIN.B32; 1 
ZSBTTL ‘replymain_broadcast routine’ 


m 8 
ICSEEHOREAUS68L Wd MEMRAM 


This routine controls terminal broadcasts. 
Input: 

None. 
Implicit Input: 

None. 
Output: 

None. 
Implict output: 

None. 
Side effects: 

None. 
Routine value: 


None. 
BEGIN ! Start of replymain_broadcast 
OWN 
node_csid : LONG 
targnode_itmlst : VECTOR C4, LONG] PRESET ( 
0] = (syi$_node_csid*16 OR 4), 
1 = node_csid, 
‘ = 05; 
REGISTER 
mlen, ' Output message length 
mptr : Sref_bvector; ! Output message pointer 
LOCAL 
text : Séyn_str desc ' Dynamic stein descr for message text 
message : $bblock Fopcsi maxread), i Buffer to build message 
message_desc : VECTOR C2, LONGI, 
status; 


Check for oper priv, return nooper error with opcom's facility code 
if NOT .jpi_privs Cprv$v_oper] 
RETURN (opc$_facility*16 OR ss$_nooper); 


Page 
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vos 000 replymain_broadcast routine 137808- 1386 93585 :82 YOPCOM. SRCSREPL YMAIN.B3 31 . (3) 
; g 0 9 | Initialize the message 
; 3 0 § NOTE: We are using an internal interface to OPCOM which is subject to change! 
; : 4 CHSFILL (0 _ k_min_size, message); ! Init all fixed fields to zero 
: 5 2 message (c(m_b_rastcode z ope$_x_clusmsg; 
3 8 8 message Lclm_b_clm_code = clm gfpyord.local: 
3 9 message ¢ia_b_d8.vers jon} = rpybrd_k_ds_version; 
; 0 8 message [clm_b_sw yeraten = opc$k_sw_version; 
; 1 8 4 message clm_l-cstd = ,nodetsid; 
; : yy Find out which qualifiers are present, and set the bits in the message 
: 235 8s § message rpybrd_v_all) = cli$present (ascid_ALL); 
>; 236 0 34 message [rpybrd_v_bel lJ = cli$present (ascid BELL); 
3 gor 0235 message [rpybrd_v_node = cli$present (ascid_NODE); 
; 238 os39 message [rpybrd_v_notify] = cli$present (ascid_NOTIFY); 
; 239 0237 message [rpybrd_v_shutdown] = cli$present (ascid_SHUTDOWN); 
; 240 0238 message [rpybrd_v_terminal] = cli$present (ascid_TERMINAL); 
> 241 0239 message [rpybrd_v_urgentJ = cli$present (ascid_URGENT); 
; 24 0240 message ([rpybrd_v_username] = cli$present (ascid-USERNAME) ; 
; 24 Osea message (rpybrd_v_wait] = cli$present (ascid WAIT); 
3 sie 8 tg abaten_sode Make adjustment for batch mode 
; 74] 0344 2 message Crpybrd_v_notify] = false; ! /NOTIFY doesn't make much sense for batch 
; see O5¢$ 3 | Move the standard fields to the message, first the sending terminal name 
; $36 0248 metr = message ([rpybrd_t_text]; ! Set output pointer to start of text area 
3 21 0249 mlen = .dvi_terminal_len; ! Get length of terminal name 
3 $26 0250 possage Crpybrd_w_send_term_len] = .mlen; ! Store the Length in the message header 
: 2 0251 CHSMOVE (.mlen, dvi_terminal_buf, .mptr); ! Append the name to the buffer 
3 See 0236 mptr = .mptr + .mlen; ! Move the output pointer past this item 
; $28 Os2e Next move the username of the sender 
; 258 0256 § mlen =. pi_username_len; 
; 259 0257 message Lrpybrd_w_send_user_len] = .mlen; 
; 260 0258 CHSMOVE (.mlen, jpi_username_buf, .mptr); 
: $01 0526 mptr = .mptr + .mlen; 
; e§ 9261 Move the csid and nodename of the sender 
3 265 098 message (rpybrd_l_send_csid] = -nodecsid; 
: 266 64 mlen = .nodenamée_desc Edsc$w_lengthj; 
; 267 0265 message Crp ord_i_send node. Ten) = .mlen; 
: 268 0266 CHSMOVE (.mlen,~.nodename_desc Cdsc$a_pointer], .mptr); 
3 $8 0968 mptr = .mptr + emlen; 
: a uh Next fetch and move the actual message text 
; 378 0 4 if NOT (status = cli$get_value (ascid_P1, text)) 
: 315 0378 $signal_stop (.status); 
3; 276 0274 mlen = .text dsc$w_lengthi; ! Zero-length messages are fine with us 
; sir 0275 message -mlen; 
3; 278 0276 CHSMOVE (.mlen, .fext Cdst$a_pointer], .mptr); 
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-Sep~1984 
mptr = yet + .mlen; 
message rpybrd_w_optional_off] = .mptr = message; 


32 ¥4.0-74 p 
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! Save offset to start of optional items 


! Now we move the optional items. These come from the /TERMINAL=(...), /USERNAME=(...) and /NODE=(...). 


! These items are stored as counted ASCII (ASCIC) items. 
describes the total length of all of the ASCIC items. 


! Move the targeted terminals to the message 
i -message ([rpybrd_v_terminal] 


F 
HEN 
a cli$get_value (ascid_TERMINAL, text) 


GIN 
share_trnlog (text); 
4 phe ag (text); 
mlen = ,text Cdsc$w_length]; 
oper (0) = .mlen; 


en; 
SMOVE (.mlen, .text Cdsc$a_pointer], mptr [1]); 


mlen = .mlen + 1; 
message (rpybrd_w_targ_term_len] = 


-message [rpybrd_w_targ_term_len 


| eRe! = .mptr + .mlen; 
Move targeted usernames 
= cmessage Crpybrd_v_username] 
ue cli$get_value (ascid_USERNAME, text) 


BEGIN 
share_trnlog (text); 
mlen roles pescdu_tongenss 


apt -mlen; ¢ 
CHSMOVE (.mlen, .text Cdsc$a_pointer], mptr (1]); 


mlen = .mlen + 1; 
message (rpybrd_w_targ_user_len] = 


-message [rpybrd_w_targ_user_len 


mptr = .mptr + .mlen; 
Ry 
Now try the target node names 


message [rpybrd_v_broad_local] = true; ' Assume 
message [rpybrd_v_broad_remoteall] = true; ! Assume 
i -gnessone C(rpybrd_v_node 


BEGIN 


i If /NODE is present, assume it is not going to the 
that it will not be going to all nodes (case where 


message ([rpybrd_v_broad_remoteall] = false; 


message trb¥bra-v-brosd-renote = false; 
message 


The length stored in the fixed length fieid 


! Translate the name 

! Convert to full device name and check 

! Get the length of this ite 

! Put the Length in the npecene (ASCIC) 

! Put the data after the length 

! Adjust the sonese for the count byte 

j Add pe item to the total length 
emlen; 


Translate the name — 

Get the length of this item 

Put the Length in the message (ASCIC) 

Put the data after the length 

Adjust the length for the count byte 

: Add ts item to the total length 
-mlen; 


bed? me meme meme 


it is going to the local node 
it is going to all remote nodes 


Local node until we know more. We know | 
every node is in the List is not interesting). 


rpyord_w_targ_node_off] = .mptr - message; ! Save offset to node area for CLUSREPLY local code 


3 


2 


Be Be Se Se we Be Se Be Be Se Se Ge Se Ge Se Ge Be Ge Se Ge Fe Ge FH Se SH Se Se Se Ge Ge Ge Se Seas Fe Se Fe Se Seas ee Se PH Se Se Se Se ae Se Se Sess Sees te Seas 


- 


3 


C ee 


i 


g 
command main module bese 1984 01:44:54 AX-11 Bliss-32 V4.0-74 Pa 8 
main_broadcast routine 1228671384 2:50:54 OPCOM. SRCIREPL YMAIN.B3 31 st (3) 


<< 


Get each of the nodenames from the command Line, and add them to the message buffer 
WHILE cli$get_value (ascid_NODE, text) 


BEGIN 
share_trnlog (text); ! Translate the name 
If the translated name is the same as the local name, set the local node flag. 


iF CHSEQL (.text Cdsc$w Length). -text Cdsc$a_pointer] 
-nodename_desc Edsc$w_length], .nodename_desc fdsc$a_pointer], 0) 


SOONO AE WHO DWN EWN O DO 


REPL 

repl 
; 4 
: 
; 34 0338 4 
; 0339 4 
; 34 0340 4 
:; 34 0341 4 
3; #6 0 r¢ 4 
; 3% 0343 4 | 
; 0344 4 | 
; 34 Bete 4 
; 1 8 18 2 message [rpybrd_v_broad_local] = true ! Now we know it is going to the local node 
. . | 
oe eee 4 ! If the node is not the same, verify that it is in the cluster. Then place the csid of the node 
; 35 0349 4 i im the message. 
; 2 0350 4 : 
s 3 0351 4 ELSE 
3; 3 0326 5 BEGIN 
; $2 0353 5 LOCAL 
, 2 0354 5 ptr, 
: 3) 0355 5 desc : VECTOR [2, LONG); | 
3 33 SHA ; Remove leading ‘'_"' and trailing "’:"' from the node name, $GETSYI doesn't Like them 
; 361 0359 5 desc (OJ = .text Cdsc$w_length]; ! Make a local fixed descriptor for the dynamic string | 
: 26 0360 5 desc [1] = .text Cdsc$a_pointer); 
3; 3 0361 5 tr = CHSFIND_NOT_CH (.desc (OJ, .desc C1], %C '_'); | 
> 364 036¢ 3 F .ptr NEQ 0 
3 36> 0365 5 THEN | 
; 366 0364 6 BEGI 
3 er 0365 6 desc [0] = .desc [0] - (.ptr - .desc (1]); | 
; 368 0366 6 desc (1) = .ptr; | 
: 369 0367 5 END; | 
; 370 Bee6 5 tr = CHSFIND_CH (.desc [0], .desc C1], %C ':"); 
; ort 0369 5 F .ptr NEQ 0 
: 372 0370 5 N | 
; $7 Bao) : desc CO] = .ptr - .desc (1); | 
3 $2 0378 2 : Do a SGETSYI to get information about the target system (the csid) | 
; fee 0375 6 IF NOT (status = $getsyi (nodename=desc, itmlst=targnode_itmlst)) | 
: 378 0376 THEN 
; 379 Raa Ssignal_stop (opc$_valuerr, 1, text, .status); 
: 380 0378 mlen = 5; ! Get the Length of this item (plus count by | 
; 381 0379 5§ mptr CO) = .mlen; ' Put the Length in the message (ASCIC) 
; a 0380 5 (mptr C1]) = .node csid; ! Put the data after the length 
; 3 0381 5 message [rpybrd_w_targ_node_len] = ! Add this item to the total Length 
; 384 Ba36 2 -message [fpybrd_w_targ_node_len] + .mlen; 
3; 385 83 pete = .mptr + .mlen; 
; 386 4 4 END; 
; 44 0 ? , END; 
3 4 3 4 If there were no node names, then the local node is the only node to get the message 
3s 591 i 9 IF .message (rpybrd_w_targ_node_len] EQL 0 
; We 390 THEN 


93 
94 


RAVLSSSLES 


uw 


=S5555S5585 


— 2) —) > 4 


Dat ek ak ek hee eee ee ee et ek et et at a td 
—ODODDNOUSWN “OOONOULSWN OOO 


Wwrororonernonrofororn) 


OPCSREPLYMAIN REPLY command main es 
v04- ne 


4 
OPCOM.SRCJREPLYMAIN.B32;1 


d 9 
16-Sep-1984 01:44:54 AX-11 Bliss-32 V4.0-7 
replymain_broadcast rout 14 300-1 bbe 93586 :8 ir 
a 


4! gu se eeeene C(rpybrd_v_broad_local] = true ! Now we know it is going to the local node 
7 sun een” C(rpybrd_v_broad_remotelst] = true; ! This means that nodes in a List 
95 2! 3 
2 } Almost done with the message, store the final Length in the header and build a descriptor 
0398 message_desc £03 = message [clm_w_length] = .mptr - message; ! Save in header and descriptor 
3244 message_desc 1] = message; 
0401 i Now, decide if we should let the OPCOM process do the actual i/o or whether we should do it locally. 
rh } We do it iocally if any of the following conditions are true: 
0404 i - If the command is REPLY /WAIT, then the user has specifically requested local i/o operations. 
0405 : - If the reference count on the operator mailbox is not equal to 2, then OPCOM is not there, and 
0406 : we have to do it. (Also if the $getdvi fails, MBA2: is not there. Should not be possible) 
en't4 } - If the $sndopr fails, then obviously OPCOM won't do it and we must. 
0409 2 IF .message (rpybrd_v_wait] 
0410 THEN 
peti ’ RETURN replymain_broadcast_local (message); 
ac18 Check the operator mailbox 
0415 status = $getdvi (devnam=ascid_MBA2, itmlst=mba2_dvi_items); 
pets IF NOT .status 
041 
0418 -mba2_refcnt NEQ 2 
0419 THEN 
Besy RETURN replymain_broadcast_local (message); 
b¢5$ ! Send the message to OPCOM so that it will get to remote nodes 
0424 if NOT (status = $sndopr (msgbuf=message_desc)) 
bao § RETURN replymain_broadcast_local (message); 
0428 2 RETURN (opc$_facility*16 OR ss$_normal); 
0429 1 END; ! End of replymain_broadcast 
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00000000 
00000000° 
00000000 
00000000' 


10CF 0004 


80060000" 


001E0004 
09009000 


: 


F 9 
ea$ep-1986 12:50:56 — LOBCOM. SRCSAEPL MAIN. 850; 1 
- ABS 


1 

1 

60 P LONG 17694724 
-ADDRESS P.ABT 


Boise” 
-PSECT SOWNS,NOEXE,2 
00000 bv! ew LEN; 
00004 Dv! Ee BUF : 4 
00044 JPI st LEN: 
00048 JPI _USERANE pr 
00054 JPI_PRIVS: 


LKB 8 

0005C NODENAME BUF i a 
0006C NODENAME. “DESC: . 
0006€ ‘Byte 14, 1 
00070 ADDRESS NODENAME_BUF 
00074 TRANLOG “BRD és 
00076 “BYTE 14, 1 
00078 “ADDRESS NODENAME _BUF 
0007C DEVCHAR:.BLKB. 4 
00080 Of ~VAXCLUSTER: a. 
00084 BATCH_MODE: 

.BLKB 4 
00088 NODECSID: : 
0008C DVI_ITEMS: 

e 131076 
00090 “ADDRESS DEVCHAR 
00094 “LON 4 6 
00h “ADDRESS BVI_TERMINAL_BUF, DVI_TERMINAL_LEN 
OOA8 MBA2_REFCNT: 


-BLKB 
QOOAC MBA2_DVI_ITEMS: 

7 LONG 966084 
-ADDRESS mOhe. REF CNT 


4h -LONG 0, 
OBC JPI_ITEMS: 

-LONG 33685516 
-ADDRESS af us RNAME _BUF , 
“LONG 6710887 


oY a o°°}- PRIVS 


JP1_USERNAME_LEN 


“ADDRESS N pte BUF, NODENAME _DESC 
- LONG 

“ADDRESS” No D 

0 1412 


C 
CB 
¢ 
D ok 
D8 SYI_ITEMS: 
-LONG _ 282656784 
DC 
€4 
EC 
F4 “ADDRESS {[N_VAXCLUSTER 
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T 
TRN REPLYBRD'I0, SHARE LOOKUP_OPER_BIT 
R Y IMAGE 


“EXTRN SYSS$SNDO 
.PSECT $CCDE$,NOWRT,2 
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OPCSREPLYMAIN REPLY ¢ and main modul 18. S$ep-1984 AX-11 Bliss-32 V4.0-74 Page 12. 
OO 00 replymain_broadcast routine 12-88-1382 93:36 a7 OPCOM. eae REPLYMAIN. B32;1 ° (3) | 
| 
00000000 00000000 ONG 0, 0 ; 
ett NODE_C31B ey | 
10D00004 00104 TARGNODE_ITMLST: | 
00" 00108 “LONG. «282066068, : | 
00000000 titanyl itt “LONG 0, 0 : 
ASCID_ABORT= P.AAA 
ASCIO“ALL= P- AAC | 
ASCID“BELL= P.AA 
ASCID“BLANK_TAPE= P.AAG 
ASCID-DISABLE= BoA 
ASCID-ENABLE= AAK 
ASCID-INITIALIZE TAPES 
ASCID_LOG= P. AAO 
ASCID_MBA2= P.AAQ 
ASCID-NODE= P. AAS 
ASCID-NOTIFY= P. AAU 
ASCID-“P1= Pp. AAW 
ASCID-PENDING= P.AAY 
ASCID~SHUTDOWN= P-ABA 
ASCID~STATUS= P. ABC 
ASCID“SYSCOMMAND=  P.ABE | 
ASCID-SYSNODE= P.ABG | 
ASCID-TEMPORARY= PAB 
ASCID~TERMINAL= P- ABK | 
ASCID-TO= Pp. ABM | 
ASCID"URGENT= P.ABO | 
ASCID~USERNAME = P. ABQ 
ASCID-WAIT P.ABS 
. RN REPLYBRD_FORMAT | 
| 
| 
OFFC 00000 -ENTRY REPLYMAIN BROADCAST, Save R2,R3,R4,R5,R6,- ws 
58 9000" CF 9€ 0000 MOVAB AS StiD NO6e ati ; | 
SA 000° cr 9€ 0000 MOVAB ae Fa10 ; 
59 m0 rsERS 0 3 90 MOVAB mt PRESENT 9 ; | 
FB AD 0206000 SF D 1 VL 4a71936, TEXT : 0209 | 
08 CE AA re eg 66S” Ase PRIVS#2, 18 0216 
50 00052894 ge 4 MOVL 4 $8067 RO ; 0 18 | 
30 00 6E 1 00 C 1$: MOVCS #0, (SP), #0, #48, MESSAGE : 0224 
10 AE 09061013 BF 00 MOVL § #151392275, MESSAG > 0225 
18 AE 6A 00 F MOVL § NODECSID, MESSAGE+ : 8333 


Page hy vos 
=11 Bligs-32 V4.0-742, (3) | 
1b-Se0-1984 93:80:82 — EOBcOm. SrcSRePcymAin.o$9;1 me 
in modu -Sep- steer ° 
MAIN REPLY command ma tine ALL : | 
OPC SREPLY replymain_broadcast rou fe Ap oF 43 even Ai CCISPRESENT +12 * 0234) 
F R e . | 
9 4 INSV LL : 
1c AE ot wre | FB 00038 INSY, RO, AT, #1, MESSAGES a8 | 
9 0 F R ; 
PUSKL ; 
1c AE 01 a > : Fee ee ence ee caceei2 : 0236, 
83 o£ a66 PUSHAB ASCID Mie len : 
1C = AE 01 " 10 o} rs 43 oats RO, ‘ ‘ Wis MESSAGE*12 : 0237 
0 F PUSHAB ASCID_SHU : : 
1c AE " ehh 3 INSV> RO” BE, #1 HESSAGESI2 je 
6? 30 £0 0007 PUSHAB ASCID TERMINAL : 
1c 01 009% i re O08 ING: ROL REL wie MESSAGE S12 ; 0239) 
69 0 FO 000 PUSHAB ASCID_URGENT é 
T : 
— 01 °F 0080 cB 9F 00088 ae : 0240 
69 5 FO 0098 SHAB ASCID. USERNAME 7 
06 B 9F 0009 PU #1, CCISPRESENT 2 + 0241 
07 5 £9 OO0AS PUSHAB ASCI Tepe sent ; 
1c AE 0 ooce fF Pe OOO FNSY: RO, BOL ane NESSAGE +13 ote 
60 22 ES Bppas BLBC, He, nEceasE sts : 0509 
DK oe Bo 8 Dee ie TIAN, ms 88 
40 AE MOVL 0° : 0 
3 rF7B A 6 apc} MOVs AEN. DVT. TERMINAL _BUF , (MPTR) : 0252 
4 AE & 38 cooc moves LEN, DVI, e : 0628 
FFoe OCA $6 0 000CD MOVE; © JP] USERNAME LEN, MLE i 0257 
67 7 0000 abe EN, MESSAGE+22 PTR) : 
C AA 00 MOVW LEN, E_BUF, (M ; 0259 
36 wie 8 00004 MOVES LEN, JPI USERNAME. : 0263 
eo 8 & EE TR Oe ie 
6A MOVZWL NO $24 + 0266 
es) ee fg) | 
28 AE 36 QO0EC ADDL2 LEN. PTR ; 
67 ae 6 £0 O00F} PUSHAB TEXT™ ; 
», «ORB fe. CSGer_vALU : 
000000006 90 09 Bio, BLBS STATUS. __— 
OA 28 OD 9107 CALLS Be LIBSSTOP 2 9 2 
01 RET ; 
0 0 , MLEN 
000000006 0 » © ari 3s: ae eee ME ESAGES26 oe : 0 16 
ee . 
A 6 ADDL2 = ML ; ; 
67 FC 36 11 MOV | SSAGE R AGE +28 
! 0 i SUBv3 Rb, WTA, Wess | 
2c AE 


9 
OPCSREPLYMAIN REPLY command main module 1b-se -1984 01:44:54 AX-11 Bliss-32 V4.0-74 Page 14. 
90s -000 replymain_broadcast routine 1 =Sep-19 4 93385382 OPCOM. SRC REPL YMAIN.03551 ’ Rs 
39 1¢ «AE 05 £1 0012A BBC #5, MESSAGE+12, 5$ : : 
78 AD SF OO1CF 4S: PUSHAB TEXT : ; 
0094 F 001 PUSHAB ASCID TERMINAL : : 
000000006 99 FB 1 CALLS #2, ctl GET_VALUE : : 
t 1 LBC —S—«aRO,, : ; 
F8 AD SF 0014 PUSHAB TEXT : ; 
00006 CF 01 FB 0014 CALLS #1, SHARE_TRNLOG : : 
FB AD OF 0014 PUSHAB TEXT : ; 
0000v cr 01 FB 148 CALLS #1, REPLYMAIN_FULDEV : ; 
: FB AD ; 1 MOVZWL TEXT, MLEN : : 
. 4 154 MOVB.  MLEN, (MPTR) ; ; 
01 A? FC BD 6 28 00157 MOVC3 MLEN, @TEXT+4, 1(MPTR) : ; 
0 150 INCL N : 3 
2E ag 6 AO 0015F ADDW2 MLEN, MESSAGE+30 : ; 
5 $ CO 00163 ADDL2 MLEN, MPTR : ; 
ct? 11 166 BRB : : 
1c «AE 95 00168 5S TSTB MESSAGE +12 : : 
37 18 00168 BGEQ = 7 : ; 
F8 AD OF 0160 AG PUSHAB TEXT : ; 
00cO «CB OF 00170 PUSHAB ASCID_USERNAME : : 
000000006 00 9 FB 00174 CALLS +e CCISGET VALUE : 3 
20 34 00178 BLBC —_— RO, : : 
F8 AD SF OO17E PUSHAB TEXT : : 
00006 CF 01 FB 00181 CALLS #1, SHARE_TRNLOG ; : 
56 FB AD 3 00186 MOVZWL TEXT, MLER : 3 
67 56 90 0018A MOVB.  MLEN, (MPTR) : ; 
01 =A? FC =D 56 28 0180 MOVC3 MLEN, @TEXT+4, 1(MPTR) : : 
56 D6 0019 INCL. ML ; : 
30 Ag 56 AO 00195 ADDW2 MLEN, MESSAGE+32 ; : 
5 56 CO 00199 ADDL2 MLEN, MPTR : ; 
CF 11 0019¢ BRB : : 
1D AE 06 88 0019E 7$: BISB2 #6, MESSAGE+13 ; 3 
03 1C AE 02 £0 O01Ae BBS #2. MESSAGE+12, 8$ ; ; 
OOBF 31 OO1A BRW 2 : : 
iD A 06 BA OO1AA 8S: BICB2 #6, MESSAGE+13 : : 
5 10 A : 001AE MOVAR MESSAGE RO ; : 
34 AE 57 50 A 00182 SUBW3 RO, MPTR, MESSAGE+36 : : 
F8 AD 9F 00187 9S: PUSHAB TEXT : 3 
5B DD 001BA PUSHL R11 : : 
000000006 99 98 FB O1B¢ CALLS #2, CL ISGET_VALUE : : 
0 O1C BLBS RO, 10$ : : 
0091 31 O16 BRW 18$ : : 
F8 AD 9F 001C9 10$:  PUSHAB TEXT : : 
00006 CF 01 FB O01CC CALLS #1, SHARE_TRNLOG ; : 
Es AA 00 FC oD F8 AD 2D 00101 CMPC5 TEXT, @TERT+4, #0, NODENAME_DESC, - : : 
—E8 BA 109 @NODENAME_DESC+4 : : 
$ 1 108 BNEQ 12$ : 3 
1D AE 8 10D BISB2 #2, MESSAGE+13 ; : 
D4 161 11$: BRB 9 ; : 
6F F8 AD 3¢ 163 12$:  MOVZWL TEXT, DESC ; : 
04 AE FC OAD iE VL —-TEXT#4, DESC+4 : : 
04 BE 6E SFB 1E SKPC = #95, DESC, aDESC+4 : ; 
é 1F BNEQ 138 ; : 
D4 OO1F CLRL ss RV ; : 
1 D 1F6 13$: TSTL PIR ; : 
ey 1F BEQL 14% ; 3 
50 04 AE 1 ¢3 OO1FA SUBL3 PTR, DESC+4, RO : : 
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218: 


s-32 V4.0-74 
REPLYMAIN.B32;1 


ww 
RE 


j 


y X-11 Bli 
PCOM.SRC 


C+4 
C, aDESC+4 


ccumow~ 2-~wt 
nm“ 


u 
#361052 
#4, LIBSSTOP 


#5, MLEN 

MLEN, (MPTR) 
NODE.CSID, 1(MPTR) 
MLEN; MESSAGE +34 
MLEN, MPTR 


MESSAGE+34 

i MESSAGE +13 
#8, MESSAGE+13 
MESSAGE, RO 
R7. MESSAGE+4 
R7, MESSAG 


E DESC 
MESSAGE, MESSAGE_DESC+4 
MESSAGE+13, 21$ 

-(SP) 

MBAD DVI TEMS 
ASCIB_MBR2 

#8, SYSSGETDVI 

RO, STATUS 

STATUS, 21$ 
MBA2_REFCNT, #2 

21$ 

=(SP) 

MESSAGE_DESC 

’ » SYSSSNDOPR 

STATUS ¥35 


ae 
#1, REPLYMAIN_BROADCAST_LOCAL 
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50 00050001 &8F 0 pO gee 228: nove #327681, RO : oo38 


; Routine Size: 707 bytes, Routine Base: SCODE$S + 0000 


8 2 ate 


448 
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PPPS 
ONAULSWN—OVOOne 


Routine value: 
1/0 status 
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replymain, broedcest. local (message) 12-86-1382 93:85:22 OPCOM. SRCJREPLYMAIN. “h3 31 (4) 
4 9 1 @ GLOBAL ROUTINE replymain_broadcast_local (message : Sref_bblock) = ZSBTTL ‘replymain_broadcast_local (m 
ri ¢ i "Functional description: 
r ¢ This routine broadcasts to terminals on the local node. 
i 
r § Input 
2 3 message - pointer to RPYBRD message 
te} Implicit Input: 
g i None. 
hi i 
0444 i Output: 
0445 i 
Bees None. 
$068 : Implict output: 
outpu 
0049 Ji “ 
0450 None. 
0451 : 
045 i Side effects: 
045 i 
0454 None. 
i 
i 
‘ 
ie 


046 


0470 


AsAsaatey 


SoLA&N= DONOULSWwN— 


WALA IPIPINYPIPIPIPI HELA GPIPIPIPIPI PIPPIN IAI a i i i kd ot od od 2 
-_ —_ 
=z 


BEGIN ! Start of replymain_broadcast_local 


status; 


{ 
: If we thought we were going to talk to the cluster, let them know it ain't a gonna Fappen. 


iF, in_VAXc Luster 
pbossage Crpybrd_v_broad_remoteall] 

-message C[rpybrd_v_broad_remotelst]) 

$signal (IF .message (rpybrd_v_wait] THEN opc$_noremwait ELSE opc$_norembroad) ; 
Format and broadcast the message to the local node 


message Crpybrd_v_wait) = ! We are in /WAIT mode now, perhaps implicitly 


{c__gneesege rpybrd. v 5 A tocal] 

BEGIN 

status = replybrd_format (.message, nodename_desc); 
a el 


status = replybrd_io (.message, nodename_desc); 


a 9 
OPCSREPLYMAIN REPLY command main module 16-Sep-1984 01:44:54 AX-11 Bliss-32 V4.0-74 P 18 OP 
vos~000 replymain_broadcast_local (message) 122868- 1382 93:85:22 OPCOM. SRCSREPLYMAIN.04951 ae (4) vo 
; 490 487 END 
; 491 4 : ELSE 
: $3 : 4 status = opc$_nolclbroad; 
: 49% 491 2 RETURN (opc$_facility*16 OR .status); 
; 495 492 END; ! End of replymain_broadcast_local 


0004 68 -ENTRY REPLYMAIN_BROADCAST_LOCAL, Save R2 430 
28 0000" cF €9 BLBC _—+IN_VAXCLUSTER, 4$ 469 
6 04 AC DO 9000 MOVL MESSAGE, RO 0471 ; 
05 OD AO 02 £0 000 BBS #2, 13(RO), 1$ 
1D 0D Ad 03 £1 01 BBC #3. 13(RO). 4$ 0473 
50 04 AC 00 00015 1$ MOVL MESSAGE rb 0475 
08 OD Ad €E9 00019 BLBC 13(RO), 2$ 
00058200 8F bD 90010 PUSHL #361168 
06 11 00 BRB 35 
000582c8 8F DD 00025 28: PUSHL #361160 
000000006 00 01 FB 000 8 $: CALLS #1, LIBSSIGNAL 
52 04 AC 00 00032 4s: MOVL MESSAGE R2 
OD Ag gt 88 00036 BISB2 #1, 1 (R2) 
18 OD A 1 al 0003A BBC #1. 13(R2), 5$ 
0000" CF SF 0003F PUSHAB NODENAME_DESC 0483 
52 DD 00045 PUSHL 
00006 CF Q FB 00045 CALLS #2, REPL YBRD_FORMAT 
14 4 0004A BLBC ( 0484 
0000" CF SF 0004D PUSHAB NODENAME_DESC 0486 
52 DD 90091 PUSHL 
00006 CF 02 FB 00053 CALLS #2, REPLYBRD_IO 
07 11 00058 BRB 0480 
50 000582C0 8F DO 0005A 5$ MOVL #361152, STATUS 0489 
50 00050000 8F C8 00061 6$ BISL2 #327680. RO 0491 
04 00068 RET 0492 


3; Routine Size: 105 bytes, Routine Base: S$CODE$ + 02C3 


De De Be Be Oe Oe Oe Be ee Be Be Se Be Be Be Be Se Se Se Se Bee See 
oOo Oo 
> + 
j o w 
io wo 


Nn 9 
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90s -000 replymain_fuldev (name : $Sref_bblock) 12-80 8- 1382 93:86:82 LOPCOM. SRCIREPLYMAIN.B3 $7 — 33 

: 13f +3? ! GLOBAL ROUTINE replymain_fuldev (name : Sref_bblock) : NOVALUE = ZSBTTL ‘replymain_fuldev (name : $re : 
; 499 95 1 !++ 
: 200 £38 ! } Functional description: : 
: 50 498 1: Convert terminal name to full (SCS) device name. Make sure that a device na hich fail i 3 
; 308 et : a valid SCS nodename for a node in our cluster, plus at least three nore letters (e.g. DELPHISTTO) : 
: 208 0501 1 ! Input: : 
; 506 B208 14 : 
; rth B207 : : name - Address of dynamic string descriptor for input name : 
3 509 080s ; Implicit Input: ; 
: 511 0807 1 None. ; 
3 21g 508 1! 3 
3 31 0509 1 ! Output: $ 
: ge 0510 1! 3 
: ai? B3i) ; : name - Receives a new dynamic string if we find the device on our system : 
3 aif 0318 ' Implict output: ; 
: 519 0515 1! None. ; 
; 250 0516 1! 3 
; es} Fa 4 ! Side effects: : 
: 258 0519 1: None. : 
> 524 0520 1! 3 
: aH 82 : Routine value: : 
; 527 0523 1 | None. : 
: 528 0524 1 !-- 3 
3 94 0525 1 F 
: 239 8256 2 BEGIN ! Start of replymain_fuldev : 
; 332 0528 2 Locat 3 
s $3 $594 en, 3 
: 534 0530 2 ptr, 3 
; 232 0333 : fe VECTOR (2, LONG] : 
3 esc : " ‘ 3 
s 537 5 : 3 
s 338 S332 _— 3 
; 539 0535 ! $ 
: 249 b236 : If the input string is not dynamic, scream and shout. : 
; 4¢ 0538 if name Cdsc$b_class) NEQ dsc$k_class_d : 
; sui 0940 ¢ | Ssignal_stop (ss$_badparam); ; 
; 268 B2e8 See if we can get a local device name from the input : 
3 505 344 if (status = $getdvi (devnam=.name, itmlst=dvi_items)) : 
fey ee : 
: ; 
: 226 b2e8 ; Copy the dvi string to the output : 


10 
OPCSREPLYMAIN REPLY d mai dul -Sep- 744: - 
are command main module 18 Sep 198% 94:86: 2¢ AX=1 


Bl 
replymain_fuldev (name : Sref_bblock) 14-Sep-1984 


s-32 V4. 
p 


; 4 desc = .dvi_terminal_len; 

; 5 : desc ab s dvi_terminal. buf; 

; $ ¢ 4 ca (status = str$copy_dx (.name, desc)) 

; 3 554 $signal_stop (.status); 

: Fe é 5 RETURN; 

: 561 339 ; : 

: o¢ 228 } If we are not in a VAXcluster, nothing more to do with the name. It is wrong. 

; fs +e if aoe - in VAXc Luster 

; 08 See $signal_stop (.status); 

: at 564 i Not a local device, make sure it looks somewhat Like a valid remote device. for the sake of ar ument, 
; 569 0565 ! imagine that a valid remote device name looks Like ‘‘nnnnnn$xxx'’ where ‘'nnnnnn'’ is a node which is 
; 2/0 p208 actually in our cluster and ‘'xxx'’ is a least three letters (can any valid terminal be shorter than TT0?) 
; He 0568 len = .name Cdsc$w_length); 

s of 0569 ptr = .name [dsc$a_pointerd; 

; 2re b259 p= CHSFIND_CH (. len, .ptr, %C '$'); ! Find the dollar sign 

: af B26 i If there is no dollar sign, or if there are fewer than three letters after the '’S', or the "'$'' is the 
; orf B2o7 : first letter then there is no such device. 

; 579 0575 2 IF .p EQL 0 

; 580 0576 R 

38 0878 THEN pn 

: 58 0579 $signal_stop (opc$_valwerr, 1, .name, ss$_nosuchdev); 

584 0580 If _aten=(.p=.ptro1) LSS on d : 

; 239 b25¢ $signal_stop (opc$_valuerr, 1, .mame, ss$_nosuchdev); 

; 265 Boge Found something that could be a node name, remove the ‘‘$xxx'' from the string 

: 590 586 2 len = .p - .ptr; 

3; 391 587 ! 

: 236 4 If any leading underscores, skip over them 

; 294 0390 .° CHSE IND_NOT_CH (,len, .ptr, %C '_"); 

: 596 0592 we 

; 230 059 BEGIN 

; 598 0594 len = .len - (.p - .ptr); 

Bl BR SF Haslem 

3 608 44 ; $signal_stop (opc$_valuerr, 1, .name, ss$_nosuchdev); 

F yt 601 Ok, we should have a good node name, try it out by doing a $GETSYI on the node (any info will do) 

; 607 é desc [0] = .Len; 

: 608 4 desc (lJ = .ptr; E ; 

; 609 605 IF NOT (status = $getsyi (nodename=desc, itmist=syi_items)) 

; 610 606 THEN 
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C LYMAIN REPLY command main modul 


ule 
replymain_fuldev (name : $Sref_bblock) 


MNP VPIVINVIMION FO O1O YVIMODOOOUMNMOTNIIO vO POO 
OMFS ONO NH SNL UA ATF OC HOM MN MOOOMWMMMNS &LFWOWO 


assume anything about a device name (boy have we learned that lesson!), and 
"§ 
f 


wn 
wn 


“I 
ww bad 


—"OOSnune SSSRomeo FNVIO VMWOOMM DW AO LSMMO SOA LOOM OCOWNO 
oa 
bad 


99 ON $9 9 SF SWI WO MIO MOMS "DOOM N90 ONIN" Oo 
OOM" WO FW POM FDO DOL OOWMDMMOOOWONIF 220 —-9OWOfnymoa 


ONIN NOOO O 


34 AX=11 
4 OPCOM.S 


We've got something that looks Like a good name, but of course it could be _DELPHISDUA169:. 
have two choices. One is to make some assumptions about what a terminal — secre A other 
sn't a goo 
it seems t be pretty 
we have a third choice, which is to leave 

he succeeded, he will use /NOTIFY. 


! End of replymain_fuldev 


.EXTRN STRSCOPY_DX 
REPLYMAIN_FULDEV, Save R2,R3,R4,R5,R6,R7 
LIBSSTOP, ~R7 


#8, SP 
NAME R3 
3(R35, #2 

1$ 

#20 

4$ 

-(SP) 

-(SP) 
DVI_ITEMS 

R3 

-(SP) 

#8, SYSS$GETDVI 
RO, STATUS 


STATUS, 2$ 
DVI_TERMINAL_LEN, DESC 
DVI TERMINAL “BUF , DESC +4 
#°MZR3, SP 


2 SP> 
#2, STRSCOPY_DX 
RO, nants 
STATUS, 3$ 
IN een, 5$ 
#1, LIBSSTOP 


; 611 0607 $Ssignal_stop (opc$_valuerr, 1, .name, .status); 
3 6} 6 : 
: 616 0610 ! 
5 oi? oi } would be to actually talk to the other node and see if it has the device. 
; g5 ig ' expensive to have a chat with the other node. 
: oi3 bere } things as they stand. If the guy really wants to know 
: os0 3918 RETURN; 
: 621 0617 1 END; 
OOF 00 
57 000000006 9 00 
2f C 00 
5 04 D 00 
02 03 9 01 
01 
01 
01 
4. 1$: 
0000' 1 
§ 
000000006 00 
56 
1D 
6E 0000' 3 
04 AE 0000' 3 
4008 3 
000000066 " 
4 
4 
5 
5 
5 
5 
5 (R3), LEN 
5 4(R35, PTR 
6 #36, LEN, (PTR) 
6$ 
R1 
R1, P 
gs PTR 
9§ 
PTR, P, RO 
2(R0), R1 
N, R1 
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OPCSREPLYMAIN REPLY command main module 1-Se =1984 01:44:54 AX-11 Bliss-32 V4.0-74 Page 23) OPC 
v04 peplometn inte routine 12-88-18 93:25584 OPCOM.SRCJREPLYMAIN.B32;1 . (6) v04 
; 6 3 $1 } GLOBAL ROUTINE replymain_init = ZSBITL 'replymain_init routine’ : } 
; 625 620 1 !+4 | 3 7 
; ? $ ? 1 ! : Functional description: ; 1 
; 4 3 oe 5 } This is the initialization routine for REPLY. Various common initializations are done. : } 
; 6350 625 1 ! Input: 31 
; 631 6 § 1! S| 
; 6 ¢ 6 1! None. 3 1 
; 3 6 § Implicit I t 
3 ' Implic nput: 3 

: 635 EB Bacon : | 4 
3; 6 631 1! None. $1 
: 637 06 ; 1! 5 
; 638 06 1 ! Output: | 
; 639 0634 1! $1 
: 640 0635 1! None. | 3 1 
> 641 0636 1! 37 
$ ong 0637 1°! Implict output: 3] 
; 64 0638 1! 24 
; 644 0639 1! None. 31 
; 645 0640 1! $1 
: 646 0641 1 ! Side effects: 3 1 
3; 647 Rote 1! 5 Y 
; 648 0643 1! None. $7 
; 649 0644 1! 31 
: 650 0645 1 ! Routine value: 2 
; «651 0646 1! $7 
5 $26 0647 1! None. 3 
; € 0648 1 !-- 31 
; 654 0649 1 * 
; 655 0650 2 BEGIN ! Start of replymain_init 3] 
; 656 0651 3 7 
; 657 0636 LOCAL 3) 
; 658 065 ptr : $ref_bblock, $s 7 
; #4 Bo38 status; 3 } 
; 661 0656 ! Some routines which are shared with OPCOM need to know whether REPLY is running or OPCOM is running. 2 | 
; 66 0657 ' Let them know. 3 1] 
3; 66 0658 ! ; $ 
; 664 0659 reply_image = 1; : 1 
; 665 0660 2! | 31 
; rr4] 306) : Do a $GETJPI to get information about the current process : ! 
3 : 3 

; 668 bees IF NOT (status = $getjpi (itmlst=jpi_items)) | 31 
3; 669 664 THEN 31 
: of0 665 $signal_stop (.status); | : 
3 676 O66? ; Get the actual Length of the username, since it is blank padded to 12 bytes : 
3; 674 0669 tr = CHSFIND_CH (12, jpi_username_buf, %C ' '); 3] 
: 675 0 F .ptr NEQ 0 | 3] 
3 676 71 THEN $1 
3 ort ore jpi_username_len = .ptr - jpi_username_buf; | : ! 
; 679 674 ! Do a SGETSYI to get information about the current system 31 


replyma t routine -Sep-1 2:50:54 OPCOM.SR REPL YMAIN.B3 31 


; 680 75 

; 681 67 iF NOT (status = Sgetsyi (itmlst=syi_items)) 

: 68 £57 3 THEN _— we 

3 oR 2/8 $Ssignal_stop (.status); 

3 6 5 6 9 ! Get the Length of the node name, since it is blank padded to 8 bytes 

: oo 6 § ptr = CHSFIND_CH (8, nodename_buf, %C ‘ '); 

; ons re -ptr NEQ 0 

: eoy 685 ; nodename_desc Cdsc$w_length] = .ptr - nodename_buf; 

: 69 : If the SCS nodename is null, try to translate SYSS$NODE to find the DECnet name. Remove the ''."’ and "'::"' 
; £37 944 H from the translated name. 

; $9? 923 iF ,nodename_desc Cdsc$w_length] EQL 0 

: 839 069 BEGIN 

3 o°8 Renz 4 con” (status = $trnlog (lognam=ascid_SYSNODE, rsllen=tranlog_desc, rslbuf=tranlog_desc, dsbmsk=6)) 
; 700 0695 $signal_stop (.status); 

; 701 0696 IF .status EQL ss$_normal ! If we translated, remove the underscores and colons 
Pee aon toa 

: 704 0699 4 a ; gly -NOT_CH (.tranlog_desc Cdsc$w_length], .tranlog_desc Cdsc$a_pointer], %C '_"); 
8 i ie 

: 707 0708 ENBEGIN 

; 708 0703 5 tranlog_desc Cdsc$w_length] = -trantog_ desc Cdsc$w_ length] - (.ptr - .tranlog_desc Cdsc$a_pointe | 
5 a4 Ae : frantog. desc Cdsc$a_pointer] = .ptr; 

: 711 0706 4 TFT ot = CHSF IND _CH (.tranlog_desc Cdsc$w_length], .tranlog_cesc Cdsc$a_pointer], %C ':"); 
Ae RG Alpert 

; 714 0709 4 "erenton., desc CgscSu. length] = .ptr - .tranlog desc Cdsc$a pointer]; 

: 715 0710 4 nodename_desc pascee. length] = _.tranlog_desc CdscSw_l Lengt 

; at) 44h 4 nodename_ desc Cdsc$a_pointer] = .tranlog_desc [dsc$a_po aterii 

G: Fees | 8 Pe 

; re grt? Do a S$SGETDVI to get the name of the command terminal. 

: 723 O71? if NOT (status = Syetdvi (devnam=ascid_SYSCOMMAND, itmlst=dvi_items)) 

: 724 O79 $signal_stop (.status); 4, * 

3 6) 4 Y P wd -devchar Cdev$v_ trm) ! If not a terminal, change to ‘'nodename Batch 

; 139 oF ; "BEGIN 

: 728 7 ous terminal_len = 6 + .nodename_desc_ [Cdsc$w_length]; 

: 729 724 CHSTOPY ( “nogenene desc Cdsc$w_l Engen -nodename_desc [dsc$a _pointer], 

3; £ 725 6, UPLIT BYTE (* Batch"), 6, .dvi _terminal_len, dvi _terminal buf); 

3 7) 7 § batch_mode = hs 

i fe Be ge a 

i 7 5 RETURN .status; ; 

; 735 730 END; ! End of replymain_init 


9 ee daa REPLY + my = main module 16- se-1984 1:44:54 AX-11 Ot ige $-32 V4.0-7 Page tH 
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OPCSREPLYRAIN REPLY command main module 1B-5¢ 1984 01:44:54 AX-11 Bliss-32 V4.0-74 OP| 
v04 peplpustn att routine 1 ~Sep-19 4 93:86: 4 OPCOM. SRETREPL YMALW.0395 1 = iB vO 
| 
-PSECT SPLITS,NOWRT,NOEXE,2 | 
68 63 74 61 42 20 00168 P.ABU: .ASCII \ Batch\ ; 
.EXTRN SYSSGETJPI, SYSSTRNLOG | 
.PSECT S$CODES,NOWRT,2 | 
07FC 00000 .ENTRY REPLYMAIN_INIT, Save R2,R3,R4,R5,R6,R7,R8,- ; 0618 
SA 0000" CF 9E 0000 MOVAB TRANLOG_DESC, R10 : 
00006 CF O4 00 G000¢ MOVL #1, REPLY_IMAGE + 0659 
—E 7C 0000C CLRO 0s = §p) + 0663 
7E 04 0000 CLRL = = (SP) : 
48 AA oF 01 PUSHAB JPI_ITEMS : 
7E 7¢ 0001 CLRQ 0s =( SP) : 
rE D4 0001 CLRL ss = (SP) : 
000000006 00 FB 0001 CALLS #7, SYSS$GETJPI : 
59 0 DO O0O1E MOVL RO, STATUS : 
61 9 & 0021 BLBC STATUS, 5$ ; 
DS AA 0c 9 A 00024 LOCC #32, #12, JPI_USERNAME_BUF + 0669 
12 00029 BNEQ 1$ : 
1 04 00028 CLRL RT ; 
52 51 09 990 D 1$: MOVL 1, PTR : 
09 13 00030 BEQL 2$ + 0670 
50 D4 OA 4 00032 MOV JP1_USERNAME_BUF, RO + 0672 
DO AA 52 50 : 900536 SUBL3 RO, PTR, JPI_~USERNAME_LEN : 
7E 7C 00038 28: CLRQ = = (§P) : 0676 
7E 04 9005p CLRL = = (SP) : 
64 AA 9 003F PUSHAB SYI_ITEMS ; 
7E 7C 00042 CLRQ = = (SP) : 
rE D4 00044 CLRL 3s = (SP) ; 
000000006 00 FB 00046 CALLS #7, SYSSGETSYI ; 
39 0 DO 0004D MOVL RO, STATUS : 
2 59 5 90050 BLBC STATUS, 5$ ; 
E8 AA 08 0 3A 9005 LOCC #32, #8, NODENAME_BUF + 0682 
2 12 00058 BNEQ 38 ; 
1 04 0005A CLRL RI : 
52 51 09 005C 3$: MOVL 1, PTR : 
09 13 0005F BEQL 4$ > 0683 
50 E8 AA 9E 00061 MOV NODENAME_BUF, RO > 0685 
FB OA 52 50 A 065 SUBW3 RO, PTR, NODENAME_DESC ; 
FB OAA ' A 48: TSTW | NODENAME_DESC + 0690 
55 06D BNEQ 10$ ; 
06 D O6F PUSHL #6 : 0693 : 
— 7C 00071 CLRO = (SP) ; 
3A DD 0007 PUSHL 1 ; 
A DD 0007 PUSHL R10 ; 
0000' CF 9F 0007 PUSHAB ASCID_SYSNODE : 
000000006 Q F 7 CALLS m6, SYSSTRNLOG ; 
D MOVL RO, STATUS ; 
6 E 5$: BLBC STATUS, 11$ ; 
01 9 D} CMPL TATUS, #1 > 0696 
7 12 00 BNE $ ; 
04 BA 6A SF BF «38 00 SKPC #95, TRANLOG_DESC, @TRANLOG_DESC+4 ; 


| 
| 
| 
0699 | 
| 


; Routine Size: 289 bytes, Routine Base: S$CODE$S + 0404 


H 10 | 
OPCSREPLYMAIN REPLY ¢ main module 16-Sep-1984 01:44:54 AX-11 Bliss-32 v4. Pa 
9052000 replynsin, in t routine 12-808-1 382 93:85:32 OPCOM.SR RCIRE REPLYMAI as 31 ™ BS 
‘ 12 9 BNEQ 6$ : | : 
D 9 CLRL R1 $ ‘ 
52 1 p 97 6$ MOVL 1, PTR : : 
9A BEQL 7$ : 9700 : 
50 04 AA C 9 SUBL PTR, TRANLOG DESC+4, RO : 070 : 
6A A A ADDW2 RO, TRAN : ; 
04 AA AG MOVL PTR, TRANLOG. DESC +4 ; 0704 : 
06 BA 6A A 3A OO0A8 7$: LOCC #58, TRANLOG-DESC, @TRANLOG_DESC+4 : 0706) : 
¢ ¢ OAD BNEQ 8$ : : 
D AF CLAL sR : : 
52 1 D B1 8: MOVL 1, PTR : : 
5 1 084 BEQL 9$ : 0707 : 
tA 52 06 AA A B6 SUBW3 TRANLOG_DESC+4, PTR, TRANLOG_DESC : 0709 : 
FB OAA 6A 80 OBB 9S: MOVW TRANLOGIDESC NODENAME _DE : 0710 ; 
FC AA 04 «AA p poe MOVL TRANLOG_DESC+4, NODENARE _DESC+4 3; 0711 : 
7E 7C Och 10$: CLRQ = = (SP) : 0717 : 
7E 7C 00 C6 CLROQ 5 ($P) : : 
18 AA SF 000C PUSHAB DVI_ITEMS : : 
0000° CF 9 00CB PUSHAB ASCID _SYSCOMMAND é : : 
C OOOCF CLRQ <=(SP)~ : : 
000000006 99 Q FB 00001 CALLS 4% SYS$GETDVI : : 
9 DO 00008 MOVL RO, STA Tus : : 
39 E& 000DB BLBS STATUS, 12$ ; ; 
9 DD OOODE 11$: PUSHL STATUS : 0719 3 
000000006 00 01 fe 900E CALLS #1, LIBSSTOP : : 
30 08 AA 02 60 0008 12$: BBS #2, DEVCHAR, 14$ ; 9720 : 
BC OAA F8 AA 3C OOOED MOVZWL NODENAME DESC. Pa TERMINAL_LEN : 07 ; 
8C AA 06 0 000F 2 ADDL2 #6, DVI_TERM LEN : ; 
28 FB AA 3C OOOF6 MOVZWL NODENAME bese 3 0724 : 
5 8C AA DO OOOFA VL DVI_TERMINAL_LEN, e 3; 0725 3 
56 90 AA 9E OOOFE V DVI~ TERMINAL BUF : 0724 : 
57 00 FC OBA 38 2c o0138 MOVCS 8, @NODENAME_ beget, #0, R7, (R6) : 3 
Q 18 00109 BGEQ 13$ : ; 
56 CO 00108 ADDL RB, R6 : ; 
57 5 ge 0010€ SUBL R8, R7 : 3 
57 00 0000" CF 06 C a0118 MOVC #6, P.ABU, #0, R7, (R6) : : 
10 AA 1 p00 00119 13s: MOVL #1, BATCH MODE : 0726 : 
50 9 pO 00110 14$: MOVL STATUS, RO ; 0729 : 
04 00120 RET : 0730 : 
| Py 
‘ 
; 
| 
. 
¢ 
| o 
| . 


Siete Siatapepsiicesdigeinnelintindinencial ) 


: Initialize the message 
NOTE: We are using an internal interface to OPCOM which is subject to change! 


! Init all fixed fields to zero 
p-rastcgd e] = opc$_x ogfile: 


CHSFILL (0, spores Logfile. min_size, message); 
= opesk. Sys en; 


message (Copc$ 
message Copc$b 
4 cli$present™ tase id. LOG) 
Sbblock (message Copc$l_rq_options], opc$v_initlog] = true 
Sbblock (message Copc$l_rq_options], opc$v_closelog] = true; 


Move the sending terminal name 
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OPCSREPLYMAIN REPLY command main module 1h-Sep -19 1:44: AX-11 Bliss-32 v4.0 Page 27. oP 
v04 replymain_logfile 1a-8ep- 138 9} 35 3 OPCOM. SRCJREPLYMAIN. “333. :1 . 3 vO 
3 738 q 1 1 @ GLOBAL ROUTINE replymain_logfile = ZSBTTL ‘replymain_logfile' . 
3 t78 f g ! 7 "fanetionsl description: | : 
3 oe 4 5 : This routine controls closing and opening the operator's log file : 
: reg 7 5 1} Input: | : 
3: 746 7 3 1 / ; 
; 745 7 1! None. . 
: i re i Implicit Input: 
3 mplic npu 
: 76 762 33 
> 745 1 CL! parameters 
: O20 ol 
3 u 
i 75 4g 1 , 
s; 7 74? 1! None. 
; 7546 748 1: 
; 755 749 1: Implicit output: 
3 ree 0750 1: 
:; 0751 1: None. 
: 758 $726 1: 
; 759 753 1°! Side effects: 
: 760 754 1: 
: 761 755 1! None. 
3 166 o7 28 1: 
: 76 757 1 | Routine value: 
: 764 758 1} 
: 765 759 1! None. 
: 766 0760 1 i-- 
; 767 0761 1 
; 768 876 BEGIN ! Start of replymain_logfile 
; 769 are 
; 770 764 REGISTER 
3; 771 Bree mlen, ' Output message length 
3 ae 3708 aptr : Sref_bvector; ! Output message pointer 
3 774 0768 LOCAL 
3; 775 0769 message : Sbblock (128), ! Buffer to build message 
3 a : messeoe,, _desc : VECTOR 2, LONG) PRESET (C1) = message), 
3 0 status; 


= 
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OPCSREPLYMAIN aa Y command main module 1b-Se -1 AX-11 Bliss-32 V4.0-74 Page 28) 
vo%=000 ynain_logfile 1ea8ep- 1986 12:50:54  LOPCOM.SRCSREPLYMAIN. B39; : id 
: 7 tr = message Copc$t_logfile_opr]; ! get output pointer to start of text area 
3 738 f alten 8 Fo4 aviwte Germinal _Ten ’ . ig stags ot germinal name . 
P e e 
3 rs mtr COS io "avi terminal_buf, — [1)) i hppend the name to the buffer 
: ie ie message_ desc (6) = Sbyteoffset (ope t " togtile. opr) + 1¢ yt Pow ! Save total Length | 
3 oy re } Send the message to OPCOM 
; £38 if NOT (status = Ssndopr (msgbuf=message_desc)) | 
3 79 THEN 
: Be 18 $Ssignal_stop (.status); 
; 800 RETURN ss$_normal; 
3 834 801 END; ! End of replymain_logfile 
007¢ 00000 ENTRY REPLYMAIN, LOGFILE, Save R2,R3,R4,R5,R6 : 0731 
oo So oe CONS neseace bese 9770 
04 AE 08 AE 9E 09009 MOV MESSAGE rEGsage DESC+4 ; 
1E 00 6E we 00 2c 0005 MOVC (SP5, #0, #30, MESSAGE ; 0777 
08 AE 9108, BE 0 BONIS wow A267, ESSA : ons 
000000006 90 1 FB O001F CALLS a. CCISPRESENT : 
OE AE 01 bs 000 9 B1SB2 #1, MESSAGE+6 : 0782 
OE AE 02 38 900 F 1$: BISB2 #2, MESSAGE+ 6. > 0784 
50 32 AE F 00 3 2$: MOVAB MESSAGE+26, : 0788 
36 0000' cr p 990 t HOVE BVI TERMINAL MEN. MLEN ; 0789 
01 =aA0 0000" CF 6 38 003F MOVC3 Be DVI_TERMINAL_BUF, 1(MPTR) : 0791 
6E 1B Ab i 0046 HOVAB 2 (RO), MESSAGE _DESC : 0792 
04 AE 9F 0004C PUSHAB ments DESC : 
000000006 90 03 Fe eH cas pee ; 
50 DD 00059 PUSHL sTATU : 0798 
000000006 00 01 FB abse CALLS #1, LIBSSTOP : 
50 01 00 6 63 3$ MOVL #1, RO + 0800 
4 00066 RET ; 0801 
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and main module 16-Sep-1984 01:44:54 AX-11 Bliss-32 V4.0-74 
ok routine 12-8001 382 93:85:22 OPCOM. SRC IREPLYMAIN.B3 37 
GLOBAL ROUTINE replymain_main = ZSBTTL ‘replymain_main routine’ 


lee 
Functional description: 


Input: 

None. 
Implicit Input: 

None. 
Output: 

None. 
Implict output: 

None. 
Side effects: 

None. 
Routine value: 

None. 
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BEGIN ! Start of replymain_main 


LOCAL 
status; 


1 
: Perform common initializations 


replymain_init (); 
: If one of the broadcast qualifiers is used, call the broadcast routine 
IF _0' ttpresent (asc id_ALL) 
on’ tiSeresent (asc id_TERMINAL) 
cli$present (asc id_USERNAME) 


THEN 
RETURN replymain_broadcast (); 


1 
If enable or disable operator's terminal, call that routine 


iF igi tiSpresent (asc id_DISABLE) 


This is the main routine for REPLY. When REPLY is started, controi is transfered here. 
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main module Sep-1984 4 AX-11 s-32 v4.0 


n_main routine 1§-$ep-1964 93: 26; 34 OPCOM. SR U$RepcvMAin.o$ B32;1 


ren’ oreo (asc id_ENABLE) 
RETURN replymain_oprenable (); 
' 
If a logfile request, dispatch to the logrile action routine 


status = cli$present (ascid_LOG); 

IF .status ! We have a /LOG 

ne nn EQL cli$_negated ! We have a /NOLOG 
RETURN replymain_logfile (); 

| If a request for status, do it 

= cli$present (ascid_STATUS) 
RETURN replymain_status (); 

Otherwise, we assume it is one of the miscellaneous replies to requests, 

as in /ABORT, /BLANK_TAPE, 7IN ITIALIZE_TAPE, /PENDING or /TO. 

RETURN replymain_reply (); 

1 END; ! End of replymain_main 


-EXTRN CLIS_NEGATED 


0004 00000 .ENTRY REPLYMAIN_MAIN, Save R2 
52 000000006 00 9€ 00002 MOVAB C ISPRESERT Ro 
FE6A CF 00 FB 00009 CALLS #0, REP oeMAIN N_INIT 
0000" CF 9F O000E PUSHAB ast 
62 01 FB Boole CALLS , CCISPRESENT 
14 50 8 9001 BLBS +4 1 
0000' CF SF 00018 PUSHAB Na TERMINAL 
62 01 FB 000IC CALLS CCISPRESENT 
OA 50 8 OO1F BLBS 4 1$ 
0000' CF 9F 00022 PUSHAB ASCID_USERNAME 
62 gi FB 00 : CALLS #1, CCISPRESENT 
06 0 £9 00 BLBC . 
FAG3 CF 00 Fe 0 7 1$ CALLS #0, REPLYMAIN_BROADCAST 
0000' CF oF 032 2$ PUSHAB ASCID_DISABLE 
62 1 FB 0 CALLS #1, CCISPRESENT 
OA 0 3 039 BLBS 
0000' CF OF PUSHAB ASC1D ABLE 
62 1 FB 4 CALLS OT SPRE SENT 
06 0 E9 0004 BLBC 
0000v CF 0 Fe 46 4g CALLS ; REPLYMAIN_OPRENABLE 
0000° cr g 04C 4$ PUSHAB ASCID_LOG 
62 1 FB 00050 CALLS #1, CCISPRESENT 
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OPCSREPLYMAIN REPLY ¢ main module -Sep-1 4 AX-11 s-32 V4.0-7 
70% -000 replymain ale routine. 19-2e0-1984 9}: $5 3 OPCOM.SR Rea EPL YMAiN 04951 
9 E BLBS STATUS, 5$ 
000000006 8 i b é ek PIATUS. #CLIS_NEGATED 
FF35 =sCF 3 4 F 5$: sas #0, REPLYMAIN_LOGF ILE 
0000° CF oF re 6$ PUSHAB ASCID_STATUS 
2 1 Fe 69 CALLS #1, ISPRESENT 
6 0 € 6C BLBC RO, 
0000v CF 00 fe Baer pants #0, REPLYMAIN_STATUS 
0000v CF 00 FB 00075 7$: CALLS #0, REPLYMAIN_REPLY 
04 O0O7A RET 


; Routine Size: 123 bytes, Routine Base: $CODE$ + 058C 
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and main module 16 
n_oprenable 14 


GLOBAL ROUTINE replymain_oprenable = 
Functional description: 


198e 92:56:34 — LOBcom. Sac 


ZSBTTL 'replymain_oprenable' 


This routine controls enabling or disabling operator terminals. 
Input: 

None. 
Implicit Input: 

CL1 parameters 
Output: 


Implicit output: 
None. 

Side effects: 
None. 


i 

i 
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i 

: None. 
i 

i 

i 

4 

i 

i 

| 

' 

Routine value: 
i 
in 


None. 

BEGIN ! Start of replymain_oprenable 
REGISTER 

mlen, ' Output message length 

mptr : Sref_bvector; ! Output message pointer 
LOCAL 

text : $Sdyn_str_desc, ' Dynamic string descr for message text 

message : $Sbblock [128], ! Buffer to build message 

message_desc : VECTOR C2, LONG] PRESET (C1) = message), 

XK, 
status, 
type_keyword; 


Initialize the message 
NOTE: We are using an internal interface to OPCOM which is subject to change! 


CHSFILL (0, gpcdh sprenghle_aiasize. message); |! Init all fixed fields to zero 
message Copc$b_rastcode) = opc$_x_oprenable; 

message Copc$b_scope = opc$k_System; 

tes Spresent (ascid_DISABLE) 


BEGIN 
$bblock Cmessage Copc$l 9 options], opc$v_disable] = true; 
type_keyword = ascid_DISABCE; 


AX-11 Ot i geeze V4.0-74 
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oer PLYMAIN REPLY command main module 1e-Sep-19 4 91:64:34 AX-1 


Bliss-32 V4.0-74 Pp 3 
replymain_oprenable 14-Sep-1984 12:50:54 j on (33 


1 
OPCOM. SRC JREPLYMAIN.B32; 7% 


$signal_stop (.status); 


ETURN ss$_normal; 
ND; ! End of replymain_oprenable 
i 


3; % ¢ 944 END $ 
3 4 945 ELSE : 
3 4 ae8 BEGIN $ 
3s 93> 94 type keyword = ascid_ENABLE; 3 
; 936 0948 IF NOT cli$present (ascid_TEMPORARY) | ; 
: 32% $989 THEN block C Lopest ions}, opc$ ] | 
: ock Cmessage Copc$l_r tions], = true; 3 
: 939 3 | en; 9g pc$l_rq_op opc$v_permoper rue | 
; 361 0988 ; Move the sending terminal name | 
: 96 955 mptr = message Copc$t_oprenable_o rj; ' Set output pointer to start of text area : 
; 964 0356 alen = ,dvi_ erminal. ten; ad ' Get length Of terminal nane i Come | : 
: 965 95 apte CO) = .mlen; ' Store the ASCIC length F 
; 966 0958 CHSMOVE (.mlen, dvi_terminal_buf, mptr (1]); ! Append the name to the buffer | ; 
; +44 B32) message_desc (6) = Sbyteoffset (opc$t_oprenable_opr) + 1 + .mlen; ! Save total Length : 
; 434 949. Set the attention mask according to the appropriate qualifier | : 
; 971 096 if NOT cli$get_value (.type_keyword, text) ; 
3 ore 0964 THEN 3 
; 97 0965 ! 3 
3 re +443 The qualifier is /ENABLE or /DISABLE without any keywords. Operate on all operators. : 
: 976 0968 BEGIN : 
; 977 0969 message Copc$l_attnmask1] = known_attn_mask1; : 
; 978 0970 message Lopc$l_attnmask2] = known_attn_mask2; H 
: 979 0971 END 3 
; 980 0972 2 ELSE 3 
; 981 0973 2 ! ; 
: oe 446 § } The qualifier is /xABLE=(...), set the bit for each specified operator | : 
3 984 0976 2 DO Sbblock (message Copc$l_attnmask1], 0, share_lookup_oper_bit (text), 1, 0] = 1 ; 
; ee? 34h , UNTIL NOT cli$get_value (.type_keyword, text); : 
: 987 0979 i Send the message to OPCOM | : 
; 988 0980 ! é 
; 989 0981 3 co (status = $sndopr (msgbuf=message_desc)) : 
F 1 i 
03FC 00000 ENTRY REPLYMAIN_OPRENABLE Save R2,R3,R4,R5,R6.- ; 0887 3 

59 00 000006 00 9E 9002 MOVAB CLIS$GET_VALUE, R9 : ; 

58 00 oppere 0 9€E 0090 MOVAB CLISPRESENT, R8 3 ; 

SE FF74 CE 9E 00010 MOV =140(SP), SP : : 

F8 AD 02060000 8F D 9919 MOVL  #34471936, TEXT : : 

FC AD D4 8 10 CLRL TEXT+4 : : 

7E D4 859 CLRL MESSAGE _DESC ; 0927 3 

04 AE 08 AE 9E 00022 MOVAB MESSAGE, MESSAGE_DESC+4 : 5 


| 
11 | 
OPCSREPLYMAIN REPLY command main module 1-5e -1984 01:44: AX=-11 Bliss-32 V4.0-74 Page 34) OPC 
9052000 replymain_oprenable 12-88=138e 2:50: 3 OPCOM.SRC Sepeymain 33:1 . B v04 
1€ 00 6E ; 00 2c 0 7 MOVCS #0, (SP), #0, #30, MESSAGE : 0936) : 
08 AE 0198 BF BO 0005 MOVW «#266, MESSAGE ‘9937. 
000' CF 9F 000 PUSHAB ASCIO_DISABLE ; 0939 ; 
a 1 FB 038 CALLS #1, CISPRESENT : : 
B 0 09 B BLBC RO. 1 : ; 
OF A 01 88 00 BISB2 #1, MESSAGE+6 + 094 F 
5 0000' cf 3 tp MOVAB ASCID_DISABLE, TYPE _KEYWORD : 0943 ; 
57 0000' CF 9E 00049 1S: MOVAB ASCID_ENA BLE gy YPE_KEYWORD + 0947 ; 
0000' CF 9F 0004 PUSHAB ASCID~TEMPORA + 0948 ; 
8 9 f ie CALLS #1, - SEISP RESENT : : 
4 0 3 BLBS : ; 
OE A 02 0058 BISB2 MESSAGE+ he + 0950 F 
5 : AE 9E 0005C 28: MOVAB #2, MESSAGE > 0955 ; 
56 0000° ct D0 00060 MOVL DVI_TER miNA LEN. MLEN + 0956 F 
60 6 90 00065 MOVE. MLN, : 0957 ; 
01 AO 0000' CF 56 28 00068 MOVC3 Ae OVI TERMINAL_BUF, 1(MPTR) : 0958 : 
6E 1B A6 SE 0006F MOVAB : (Ré), MESSAGE_DESC : 0959 ; 
FB AD OF 00073 PUSHAB + 0963 : 
57 DD 900% PUSHL TYPE KEYWORD : ; 
69 02 Fe 0007 CALLS Pe LISGET VALUE 3 : 
0D 50 €8 00078 BLBS ; : 
12. AE OOFFFIFF 8F DO 0007E MOVL Ate 3631 MESSAGE+10 + 0969 : 
16 AE D4 00086 CLRL MESSAGE+14 : 0970 ; 
18 11 00089 BRB 5$ + 0963 ; 
F8 AD 9Q9F 00088 3$: PUSHAB ad ; 0976 3 
00006 CF 01 FB 0008 CALLS SHARE _LOOKUP_OPER_BIT : : 
00 12 AE 50 €2 0009 BBSS 4 HESSAGE+10, t$ : F 
F8 AD SF 00098 4$: PUSHAB TEXT + 0977 : 
57 DD 0009B PUSHL TYPE K YWORD ; F 
69 02 FB 0009D CALLS » IScer VALUE : ‘ 
E8 50 £8 OO0A0 BLBS +e 3$ ; 
7E D4 O00A3 5S: CLRL =s_- = (§P) : 0981 
04 AE 9F OO0AS PUSHAB MESSAGE DESC : 
000000006 00 02 FB 000A8 CALLS SYSSSNDOPR ; 
OA 50 €8 OOOAF BLB ATUS, 6$ : 
50 DD 000B2 PUSHL STATUS > 0983 
000000006 00 01 FB 000B4 CALLS #1, YtBssToP ; 
04 00088 RET ; 
50 01 DO O00BC 68: MOVL #1, RO > 0985 
04 000BF RET : 0986 


3; Routine Size: 192 bytes, Routine Base: $CODE$S + 0607 | 
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OPCSREPLYMAIN REPLY command main module 16-Sep-1984 01:44:54 AX=11 Bliss-32 V4.0-74 Page 35 OPI 
70s .000 replymain_reply 1o-808- 1382 93:86i84 OPCOM. SRCIREPL YMAIN.B3 31 asd v0 
3 987 1 GLOBAL ROUTINE replymain_reply = ZSBTTL ‘replymain_reply’ 
336 388 1 ae plymain_reply plymain_reply 
; 998 9 1 ! Functional description: 
£ 1000 90) 1 | Thi i trols enabli disabli inal 
; : s routine controls enabling or disabling operator terminals. 
: 1001 $992} i . oe | 
: eS 0995 1°! Input: 
; 100 0994 1! 
3; 1004 0995 1! None. 
1008 $907 1 i Implicit 1 
; ! Implic nput: 
100? 998 i : 
; 1008 999 1! CLI parameters 
; 1009 1000 1! 
; 1010 1001 1 ! Output: | 
3 1011 1006 1! 
: 18t¢ 1005 1! None. 
3; 101 1006 1! 
3: 1014 1005 1 ! Implicit output: | 
: 1015 1006 1! 
3 1016 1007 1! None. 
: 1017 1008 ¥: 
3 1018 1009 1 ! Side effects: 
3; 1019 1010 1! | 
: 1020 1011 17°! None. 
3; 1021 IOi¢ i! 
: 1002 1013 1 | Routine value: | 
; 19s 1014 1! 
3: 1024 1015 1! None. 
3: 1025 1016 1 !-- 
: 1026 1017 1 
: 1027 1018 2 BEGIN ! Start of replymain_reply 
: 1028 1019 
; 138 1020 REGISTER 
3; 1050 1021 mlen, ' Output message length 
: 1031 1022 2 mptr : $ref_bvector; ! Output message pointer 
: 1032 1023 
3; 1033 1024 LOCAL : 
3: 1034 1025 text : $dyn_str_desc ! Dynamic ty He descr for message text 
: 1035 1026 message : $Sbblock F2048) ! Buffer to build message | 
; 1036 oer message_desc : VECTOR (2, LONG] PRESET (C1] = message), 
: 1037 1028 idx, 
: 1038 183 status, | 
; ype_keyword; 
3 1920 8 1 ! 
3 1041 1038 ! Initialize the message 
; Hh ek 103 ' : : 
3 weer ioe : NOTE: We are using an internal interface to OPCOM which is subject to change! | 
3 1045 1936 CHSFILL (0, opcSk_reply min size, message); ! Init all fixed fields to zero 
: 1046 103 message Copc$b_rastcode] = opc$_x_reply; | 
3 H 9 4 Ht message opc$b_scope) = opc$k_System; 
: 1049 1040 ! Find out which flavor of reply. The main routine calls us if it hasn't found something else, therefore 
3 1930 191 if it isn't one of ours we need to return the bad status. 
3; 1052 1848 SELECTONE cli$_present OF 

| 


ee c— 


| 
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Bhp -Sep- 244: - iss- 4.0-74 OPC 
ones PLYMAIN REPLY commend main module 16 ety 7 03:86: 3¢ AX Af Shige 32 v4.0 Page dy, vO4 


replymain_reply - 4 OPCOM.SRCJREPLYMAIN.B32;1 
: 1053 1044 SET 
3 + 4 1045 Ccli$present (ascid_ABORT)) : BEGIN 
; 1055 1 § message Copc$l_raq_options] = opc$_rqstabort; 
; 19 $ : ? ; e_keyword = ascid_ABORT; 
: 1088 1 rk Ccli$present (ascid_BLANK_TAPE)] : BEGIN | 
3; 1059 1050 message Copc$l_rq_options] = goed _blanktape: 
; He : | type_keyword = ascid_BLANK_TAPE; 
: 106¢ 1988 Ccli$present (ascid_INITIALIZE_TAPE)] : BEGIN 
3% 1054 message Copc$l_rq_options] = ope? initape; 
; ee ; 2? type. eyword = ascid_INITIALIZE_TAPE; 
: 1066 1089 Ccli$present (ascid_PENDING)] : BEGIN 
; 106 1058 eeecege Copc$l_rq_options] = opc$_raqstpend; 
3 1008 1923 type_keyword = ascid_PENDING; 
3 1070 1061 [cli$present (ascid_T0)] : BEGIN 
; 1071 1006 message Copc$l_rq_options] = opc$_raqstcmplte; 
3 1076 er : e. eyword = ascid_TO; 
; 1074 1065 COTHERWISE) : RETURN cli$_ivverb; 
We 8S BTS 
; 444 1po8 Move the request ID to the message | 
; 16 4 199 if NOT (status = cli$get_value (.type_keyword, text)) | 
3 1081 107¢ Ssignal stop (.status); ! This is a required entity! 
3 IRs a gs status = ots$cvt_ti_l (text, message Copc$l_rqstid])) 
; Hs + ; $signal_stop (opc$_valuerr, 1, text, .status); | 
; 1086 1977 Move the sending terminal name | 
: 1088 1079 mptr = message Copc$t_reply_oprd; ' Set output pointer to start of text area | 
3; 1089 1080 mlen = ,dvi_terminal_Ten; ' Get Length of terminal name 
: 1090 1081 motr (O01 = <mlen; ' Store the ASCIC sense 
3; 1091 Ht CHSMOVE (.mlen, dvi_terminal_buf, = (1); : append the name to the buffer 
; 109 108 message _desc (6) = Sbyteoffset (opc$t_reply_.opr) + 1 + .mlen; ! Save total Length 
3; 109 1084 mptr = .mptr + 1+ .mlen; 
: 1095 1086 3 | 
: 1998 Hs 4 Move the reply text, if any | 
; 1098 1089 cli$get_value (ascid_P1, text); ! Get the parameter 
3; 1099 1090 (mptr (03) <0 16,0> = .text Cdsc$w_length); ' Store 16-bit_length of text | 
: 1100 1091 message eone f0)°= -mogsage_desc (0) + 2 + .text Cdsc$w_length]; ! Add text plus length word to totat length 
3 4133 : 4 if -text Cdsc$w_length] GTR 0 ' If a message came in, move it to the buffer after the len | a 
: 1108 1O9e CHSMOVE (.text CdscSw_length], .text Cdsc$a_pointer], mptr (2]); | 
; 1199 1096 : Send the message to OPCOM 
: 1107 1098 if NOT (status = $sndopr (msgbuf=message_desc)) 
: 1109 1100 $signal_stop (.status); 


F 11 
OPCSREPLYMAIN REPLY command main module 19~300" 138% 91:64: 36 AX-11 OL igsege Rie ats Page 3 
v04 replymain_reply 14-Sep-1984 12:50:54 OPCOM. SRC JREPLYMAIN.B32;1 (10) 
; 111 1 

; 111 03 ; RETURN ss$_normal; 
; 111 END; ! End of replymain_reply 


LEXTRN CLI$ PRESENT, CLIS_IVVERB ; 

EXTRN OTSSCVT_TI_ | : 

OFFC 00000 -ENTRY REPLYMAIN REPLY, Save R2,R3,R4,R5,R6,R7.RB,-; 0987 : 

B 000000006 00 gE 00002 VAR CLESGET VALUE, R11 T23 

A 040000006 3E 0000 MOVAB  CLISPRESENT, R10 ; | : 

3 900" CF 9E 00019 QVAB ASCID ABORT ,_R9 : | : 

FE octet GE 25 9001 MOVAB =¢060TSP), §p : | ; 

F8 AD O20E0000 BF 06 o0038 MOVE §— 434471936, TEXT ; _ : 
7E 04 000 CLRL_ MESSAGE _DESC ; 1027 | : 

04 AE 08 AE 9E 000 MOVAB MESSAGE MESSAGE DESC +4 : | ; 
6E , 00 eC 0008 movcS #0, (SPS, #0, #32, MESSAGE ; 1036 | : 

08 A 0100 BF 80 00033 MOVW #269, MESSAGE : 1037 | ; 
52 000000006 §F 0 00059 MOVE #CLIS_PRESENT, R2 : 1848 ; 

A Q1 FB 00048 CALLS #1, CLISPRESENT ; | : 

; 2 ate: 

OE AE 0005801 BF DO OO0GA MOVL #360476, MESSAGE+6 > 1046, : 
5 $9 9% 20035 MOVAB ASCID_ABORT, TYPE _KEYWORD : 1047 | ; 

2¢ «AD «9F 00057 18: PUSHAB ASCID_BLANK TAPE > 1049 : 

6A Q1 FB QO0SA CALLS #1, CCISPRESENT ; ; 

. 2 3 S00 gues Be : : 

OE Ag 0005813 BF 00 90062 MOVL #360931, MESSAGE +6 ; 1050 : 
5 eC AS YE 00064 MOVAB —ASCID_BLANK TAPE, TYPE KEYWORD ; 1051 : 

64 AD OF 09079 2$:  PUSHAB  ASCID_INITIALIZE_TAPE ; 1053 ; 

6A 9; FB 0007 CALLS #1, CCISPRESENT : : 

x e 42 Soors pea 3g 

OE AE 00058103 BF D6 0007 MOVL #360915, MESSAGE +6 > 1054 : 
5 64 AD 9 0088 MOVAB —ASCID_INITIALIZE TAPE, TYPE KEYWORD : 1053, ; 
oosst9 OF 0089 3$:  PUSHAB ASCID_PENDING ; 1057 | : 

6A 61 FB 000 CALLS #1, CEISPRESENT ; : 
game Ga tape! 

1 8F 9 MOVL #360481, MESSAGE +6 : 1058 ; 

a eae) c9 oe te HOVAB ASCID_PENDING, TYPE_KEYWORD 1059 | 3 
orc 3 OF 00h 4$: PUSHAB ASCID_TO : 1061 3 

f 2 a 7 : 

F A BNEG : ; | 3 

OE Ag 00058020 BF 06 a MOVL #360489, MESSAGE +6 1063 : 
5 12c }6C9(«9E (000 MOVAB ASCID_TO, TYPE_KEYWORD : 106 ; 


; Routine Size: 350 bytes, Routine Base: S$CODE$ + 06C7 


1 
OPCSREPLYMAIN REPLY command main module 18-5¢ =1984 1446:54 AX-11 Bliss-32 V4.0-74 Page oP 
yOe+000 replymain_reply 1 ~300- 138% 94:55 8e OPCOM. SRC IREPLYMAIN.B $31 . sd v4 
| 
8 11 0008D BRB 64 : 1043) : 
50 000000006 gf if BF 5$: ROVL #CLIS_IVVERB, RO : 1068, : 
FB AD OF £§ 6$: PUSHAB TEXT + 1070) 3 
DD OOOCA PUSHL TYPE_KEYWORD : ; 
6 cc CALLS +e CLISGET_VALUE : : 
D CF MOVL RO, STATUS : ; 
B D BLBC = STATUS ; : : 
1A AE OF 0000 PUSHAB MESSAGE+1 ; 1073 : 
FB AD 9F 0000 PUSHAB TEXT : ; 
000000006 Q F D CALLS #2, OTSSCVT_TI_L : : 
D OE MOVL RO, STATUS : ; 
1 E E STATUS, 7$ : ; 
bp 0€8 PUSHL STATUS + 1075. ; 
F8 AD OF OOOEA PUSHAB TEXT : F 
1 0D OO0ED PUSHL #1 : : 
0005825c BF DD OOEF PUSHL #361052 : F 
000000006 00 4 FB OOF CALLS #4, LIBSSTOP : ; 
57 32 AE g OOFD 7$: MOVAB MESSAGE+26, MPTR : 1079 ; 
56 0000° ct p 0101 MOVL § DVI_TERMINAL_LEN, MLEN + 1080 : 
67 6 0106 MOVB MLER, (MPTR : 1081 3 
01 «A? 0000" CF 56 é 0109 MOVC3 MLEN, DVI_TERMINAL_BUF, 1(MPTR) : 1082 ; 
of 18 ag — 09110 MOVAB 27(R6), MESSAGE DESC : 108 F 
5 01 A647 YE 00114 VAB_-1(MLENSCMPTRJ, APTR + 1084 ; 
F8 AD OF 00119 PUSHAB TEXT > 1089 ; 
00A8B C9 OF OO1IC PUSHAB ASCID_P1 : ; 
68 02 FB pot CALLS #2, CCISGET_VALUE : 3 
67 Fs AD 80 01 OVW TEXT, (MPTRY > 1090 : 
50 FB AD 3C 001 MOVZWL TEXT. R + 1091 : 
50 6 £0 0128 ADDL2 MESSAGE DESC, RO : 3 
bE 02 A 01 MOVAB 2(RO), MESSAGE_DESC : : 
F8 AD BS 001 TSTw TEXT + 1092 : 
07 13 001 BEQL 6-8 : ; 
02 a7 FC BD F8 OAD 2 901 7 MOVC3 TEXT, @TEXT+4, 2(MPTR) + 1094 : 
7E D4 OO13E 8S: CLRL = = (SPS : 1098 : 
06 AE OF 90149 PUSHAB MESSAGE_DESC ; 3 
000000006 00 Q FB 0014 CALLS #2, SYSSSNDOPR : F 
58 D O14, VL —- RO, _STATUS ; 3 
3 E8 00140 BLBS STATUS, 10$ : 3 
8 DD 00150 9S: PUSHL STATU > 1100 ; 
000000006 00 01 FB 1 CALLS #1, LIBSSTOP : : 
50 01 00 0015A 108: MOVL #1, RO : 110 : 
Be SET RET : oa : 
: 


8 te PLYMAIN REPLY command main module 
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GLOBAL ROUTINE replymain_status = ZSBTTL ‘replymain_status' 
7 "Functions! description: 
This routine requests a display of status 
Input: 
None. 
Implicit Input: 
CL1 parameters 
Output: 
None. 
Implicit output: 
None. 
Side effects: 
None. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
Routine value: 
i 

ie 


None. 
BEGIN ! Start of replymain_status 
REGISTER 
mlen, ! Output message length 
mptr : Sref_bvector; ! Output message pointer 
LOCAL 
message : $Sbblock p328) ! Buffer to build message 
message. desc” : VECTOR £2, LONG) PRESET (C1) = message), 
us; 


Initialize the message 
NOTE: We are using an internal interface to OPCOM which is subject to change! 


CHSFILL (0, opcSk sptatus. _min_size, message); ! Init all fixed fields to zero 
message opc$ of antees e = opc$_x “status S; 
message opc$b_scope = opc$k_System; 


j Move the sending terminal name 


tr = maege e Copc$t_status_opr); ! Set output pointer to start of text area 
mlen qraines.. en; i Get length 2 gerainel name 

apt r Coie 4 tale i Store the ASCI 
CHSMOVE (.mlen Mavi terminal_buf, mptr (1)); i Apgend th the he = Re b 

message_desc (6) = Sbyteoffset (opc$t _status_opr) + emlen; ! Save fotel y aoe 


-o 


007¢ 44 
5E FF7C . 44 
E 04 0000 
04 AE 08 AE YE 00009 
1E 00 6E 00 2C 0000 
08 AE 001 
08 A O10F = BF 80 001 
5 3 AE f 0018 
56 0000" CF 00 Q001F 
60 6 90 00024 
01 AO 0000" CF 6 ge 00027 
6E 1B A6 YE 000 5 
7E 04 000 
04 AE 9F 00034 
000000006 00 02 FB ait 
OA 50 €8 0003E 
50 DD 00041 
000000006 00 01 FB 00043 
04 O004A 
50 01 00 00048 1$: 
04 0004E 


; Routine Size: 79 bytes, Routine Base: S$CODE$ + 0825 


t-te -Sep-19 


RE and main module -Sep-19 
v04 replymain_status 4 
3 137) 136 ! 
; 1148 118 Send the message to OPCOM 
; 1174 1164 if NOT (status = Ssndopr (msgbuf=message_desc)) 
; 1178 11 S$signal_stop (.status); 
3 117 116 
; 1178 138 RETURN ss$_normal; 
3: 1179 116 END; 


Be 92:30:84 


soee V4.0-74 


AX-11 Otis 
SRC) REPLYMAIN.832;1 


OPCOM. 


! End of replymain_status 


st STATUS, Save R2,R3,R4,R5,R6 
wisest (SP) SP 
MESSACES RESSAGE DESC +4 
#0, (SP), #0, #30, MESSAGE 
#271 MESSAGE 
MESSAGE+26, M 
DVI_TE RRINAL” ntEN, MLEN 
MLER, (MPTR)~ 
8 EN, DVI_TERMINAL_BUF, 1(MPTR) 
27 (Rb), MESSAGE _DESC 
nee ees DESC 
SYSSSNDOPR 
TATUS, 1$ 
STATy 5 
#1, LIBSSTOP 
#1, RO 


Page 40) 


(11) | 
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OPCSREPLYMAIN REPLY command main module 1o~300" 138% 1:44: tr AX-11 Bliss-32 V4.0-74 Page 41) 
v04 replymain_status 14-Sep-1984 12:50: OPCOM. SRC JREPLYMAIN.B32;1 (12) 
4 1183 1379 1 END 
3; 11 1171 0 ELUDOM !' End of REPLYMAIN | 

.EXTRN LIBSSIGNAL | 
; PSECT SUMMARY 
; Name Bytes Attributes 
; 376 NOVEC, WRT RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 66 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 2164 NOVEC, NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


quessese Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


~-$255S$0UA28: (CSYSLIBILIB.L32;1 18619 4¢ 8 1009 00:0 
“$255$DUA28 : COPCOM.0BJ JOPCOMLIB.L32;1 633 7 1 4 00:0 


H BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:REPLYMAIN/OBJ=OBJ$:REPLYMAIN MSRC$:REPLYMAIN/UPDATE=(ENHS$:REPLYMAIN) 
; Size: 2164 coge + 642 data bytes 


> Elapsed Time: ¢3 14.6 
3 Lines/CPU Min: 1705 


272 ages 
; meee Be neg Conplete . 
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